Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim ȿ˻ As Range
    
    Application.EnableEvents = False
    
        With ActiveSheet.UsedRange
            
            Set ȿ˻ = .SpecialCells(Type:=xlCellTypeAllValidation)
            
        End With

    Application.EnableEvents = True

    If ȿ˻ Is Nothing Then Exit Sub
    
    If Not Intersect(Target, ȿ˻) Is Nothing Then
    
        If Application.CutCopyMode <> False Then
        
            Application.CutCopyMode = False
            
        End If

    End If

End Sub